From: Roland McGrath <roland@gnu.org>
Date: Wed, 31 Mar 1993 23:30:25 +0000 (+0000)
Subject: (etags-tags-completion-table): Use skip-syntax-backward instead of
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96615
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=17276ed336235871199421f8cdf493f8fbd5d9a4;p=emacs.git

(etags-tags-completion-table): Use skip-syntax-backward instead of
skip-chars-backward.
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index adca6ad4d7b..b1aae1b2db5 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -854,20 +854,19 @@ See documentation of variable `tags-file-name'."
       (while (search-forward "\177" nil t)
 	;; Handle multiple \177's on a line.
 	(save-excursion
-	  (skip-chars-backward "^-A-Za-z0-9_$\n") ;sym syntax? XXX
+	  (skip-syntax-backward "w_")
 	  (or (bolp)
 	      (intern (buffer-substring
 		       (point)
 		       (progn
-			 (skip-chars-backward "-A-Za-z0-9_$")
+			 (skip-syntax-backward "w_")
 			 ;; ??? New
 			 ;; `::' in the middle of a C++ tag.
 			 (and (= (preceding-char) ?:)
 			      (= (char-after (- (point) 2)) ?:)
 			      (progn
 				(backward-char 2)
-				(skip-chars-backward
-				 "-A-Za-z0-9_$")))
+				(skip-syntax-backward "w_")))
 			 (point)))
 		      table)))))
     table))